﻿<!--#include file="const.inc"-->

<%
	dim id,rs,sql,urls,name
	id=Request.QueryString("id")
	if id="" then id=0
	if not isnumeric(id) then id=0
	id=clng(id)

			Set Rs = Server.CreateObject("Adodb.Recordset")

			Sql = "select [urls],[name] from [qingtian_link_list] where id="&id&""
			Rs.Open Sql,conn,1,1
			if not (rs.bof and rs.eof)  then
				urls=rs("urls")
				name=rs("name")
			else
				urls="/index.asp?sid=" & sidd & ""
				name=qingtian.mainname
			end if
			Rs.close

			set rs=nothing


	qingtian.tj id,"in"

select case v
case "0"
we0="<br/>"
hr="------------<br/>"
%>
<card title="正在进入..." ontimer="<%=qingtian.utf8(urls)%>"><timer value="30"/><p align="left">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<meta name="keywords" content=",版本V1.0"/>
<meta name="author" content="晴天建站系统"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="0"/>
<meta http-equiv="Refresh" content="1; url=<%=qingtian.utf8(urls)%>">
<title>正在进入...</title>
</head>
<body>
<%

End Select

	%><%
        Response.Write we
   	Response.Write("你即将离开本站进入")
   	Response.Write("<a href='"&qingtian.utf8(urls)&"'>"&qingtian.utf8(name)&"</a><br/>")
        Response.Write we0
%>
<%=hr%>
<%=sou%><a href='index.asp?sid=<%=sidd%>'>返回友链首页</a><%=we0%>
 
		<%

end Function
%>
